home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / amicomsys / amicomsysmui.lha / AmiComSys / Install < prev    next >
Text File  |  1999-05-08  |  11KB  |  240 lines

  1. ; Install script for AmiComSys 1.25a 68020+/Kick 3.0
  2. ;
  3. ; $VER: AmiComSys-install 1.35 (08.05.99) Håkan Parting
  4. (set highcpu 1)
  5.  
  6. ; ** set system variables **
  7. (set cpu (database "cpu"))
  8. (if (= cpu 68000) (set #cpu 0))
  9. (if (= cpu 68010) (set #cpu 1))
  10. (if (= cpu 68020) (set #cpu 2))
  11. (if (= cpu 68030) (set #cpu 3))
  12. (if (= cpu 68040) (set #cpu 4))
  13. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  14. (set osver (/ (getversion) 65536))
  15.  
  16. ; set texts
  17. (set #nonlist "AmiComSys requires the MUI-costum-class\nNList.mcc version 19+ by Gilles Masson\n\nIt must be installed before AmiComSys\nPlease, download it from Aminet:dev/mui/MCC_NList0.85.lha\nAnd install it with the included installer script\nThen try to install AmiComSys again ...")
  18. (set #nomui "AmiComSys requires Magic User Interface (MUI) 3.8!\n\nYou can find it on Aminet:dev/gui/mui38usr.lha")
  19. (set #wrongcpu0 "This archive does only include a version for 68020/kickstart 3.0 and\nhigher.\n\nYou may download a 68000 version from\nhttp://amicomsys.tibb.at\nAt the bottom of the page\n\nInstallation is aborted")
  20. (set #wrongcpu2 "This archive does only include a version for 68000/Kickstart 2.0 and\nhigher. A version for 68020 and higher is available\nat http://amicomsys.tibb.at\nor\nAminet:comm/net/AmiComSysMUI.lha")
  21. (set #seldocs "Select which documentation you want to install!")
  22. (set #selscr "Do you want to install the following Arexx-scripts?\nThey may be executed at different occasions.\nIf you already have a costum version of these you\nshould not check the checkboxes infront of the names.")
  23. (set #selscrhelp "The NotifyArexx.amicomsys may be executed when someone is\nconnecting or disconnecting. A simple example is included in this\narchive, but a more versatile one can be found at\nAminet:comm/net/ACS-Notify.lha and is written by Scott Beardwood\nThe MessageArexx.amicomsys script may be executed when someone\nmessage you. There is a simple example script in this archive.\nThese scripts does only work if you have registered AmiComSys.")
  24. (set #selsize "Which screen size will AmiComSys run at?")
  25. (set #selsizehelp "Specify which screen size AmiComSys will run at.\nIf your screen size is lower than 640x512 then the\nTooltype LOWRESOLUTION will be inserted into\nthe AmiComSys icon.\nIf this Tooltype exists AmiComSys will open up with a\nwindow layout that will work on such a system.")
  26. (set #selimages "Do you want to use the 20 colour-(NewIcons-style)-graphics-buttons\nor the 8 coulour-(MagicWB-style)-graphics-buttons?")
  27. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.\nIf you have screen size that is smaller than 640x512 then\nbetter choose the NewIcons graphics set, because the MagicWB one\nis to big.\nNote that the NewIcons 3/4 does not have to be installed\nto use the 20 colour-images!")
  28. (set #readmefile "AmiComSysMUI1.25a.readme");
  29. (set #notextinput "If you are using Amiga Kickstart 36, 37 or 38\nAmiComSys requires the costum MUI class\nTextinput.mcc.\nThis class couldn't be found in\nyour LIBS:/mui directory.\n\nPlease download it from\nftp://ftp.vapor.com/misc/textinpt_13.XX.lzx\nwhere XX is 34 or higher.");
  30. (set #stringtext "")
  31. (set #wrongos "This version of AmiComSys requires Kickstart 3.0+\nThere is Kickstart 2.0 version available at the\nhome page.")
  32. (if (> osver 38) (set #stringtext "BetterString.mcc © Allan Odgaard\n"))
  33. (if (= highcpu 0) (set #cputext "68000/OS2.0+ version\n"))
  34. (if (= highcpu 1) (set #cputext "68020+/OS3.0+ version\n"))
  35.  
  36.  
  37. (message
  38.      "Welcome to the AmiComSys 1.25a installer!\n\n"
  39.     "You may either use this for a first\n"
  40.     "time install or for updating a former\n"
  41.     "version of AmiComSys.\n\n"
  42.     "AmiComSys © Håkan Parting 1997-1999\n"
  43.     #cputext
  44.     "Requires:\n"
  45.     "MUI 3.8+ © Stefan Stuntz\n"
  46.     "AMarquee V49+ © Jeremy Friesner & Håkan Parting\n"
  47.     "NList.mcc 19+ © Gilles Masson\n"
  48.     "Toolbar.mcc 15.5+ © Benny Kjær Nielsen\n"
  49.     #stringtext    
  50. )
  51.  
  52. (message
  53.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation."
  54. )
  55.  
  56. ;(if (< osver 39) (exit #wrongos))
  57.  
  58. (if (< (exists "MUI:") 2) (exit #nomui) )
  59. (if (exists "LIBS:muimaster.library") (
  60.     (set muiver (/(getversion "LIBS:muimaster.library") 65536))
  61. ))
  62. (if (< muiver 19) ( 
  63.     (exit #nomui)
  64. ))
  65.  
  66. (set muiver 0)
  67. (if (exists "LIBS:MUI/NList.mcc") (
  68.     (set muiver (/(getversion "LIBS:MUI/NList.mcc") 65536))
  69. ))
  70. (if (< muiver 19) ( 
  71.     (exit #nonlist)
  72. ))
  73.  
  74. (welcome)
  75. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  76.                          "68040" "68060"
  77.                     )
  78.                 (prompt "Please, select the processor your Amiga have")
  79.                 (help   "Recommended is to leave it as default")
  80.                   (default #cpu)
  81.           )
  82. )
  83.  
  84. (if (= highcpu 1) (if (< cpuVal 2) (exit #wrongcpu0) ))
  85. (if (= highcpu 0) (if (> cpuVal 1) (message #wrongcpu2) ))
  86.  
  87. (set DefDir (getassign "MIAMI"))
  88. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  89. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  90.  
  91. (set #target (askdir    (prompt "Where do you want to install AmiComSys?\nA directory named AmiComSys will be created.")
  92.                         (help "Select a directory, where you want to install AmiComSys!\nA directory named AmiComSys will be created there.")
  93.                         (default DefDir)
  94. ))
  95.  
  96. (set instdir (tackon #target "AmiComSys"))
  97. (set @default-dest instdir)
  98.  
  99. (makedir instdir (infos))
  100. (if (< (exists (tackon instdir "pictures")) 2) (makedir (tackon instdir "pictures")) )
  101.  
  102. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  103.  
  104. ; copy over files
  105.  
  106. (copyfiles (source "AmiComSys") (dest instdir) )
  107.  
  108. (if (= (exists (tackon instdir "AmiComSys.info")) 1)
  109. (
  110.     (makedir (tackon instdir "icons") (infos))
  111.     (copyfiles (source "AmiComSys.info") (dest (tackon instdir "icons")))
  112.     (message "The latest icon-file was copied to the icons directory of AmiComSys")
  113. )
  114. )
  115. (if (= (exists (tackon instdir "AmiComSys.info")) 0))
  116.     (copyfiles (source "AmiComSys.info") (dest instdir))
  117.  
  118.  
  119. ;(tooltype (dest (tackon instdir "AmiComSys")) (settooltype "PROGDIR" instdir) )
  120.  
  121. (copyfiles (source "Register") (dest (tackon instdir "Register")) (all) (infos))
  122.  
  123. (set si (askchoice (choices "greater than or equals 640x512" "lower than 640x512")
  124.                     (prompt #selsize)
  125.                     (help #selsizehelp)
  126.                     (default 0)
  127. ))
  128.  
  129. (if (= si 1) (
  130.     (tooltype (dest (tackon instdir "AmiComSys")) (settooltype "LOWRESOLUTION" "1") )
  131. ))
  132. (if (= si 0) (
  133.     (tooltype (dest (tackon instdir "AmiComSys")) (settooltype "LOWRESOLUTION") )
  134. ))
  135.  
  136.  
  137. (set imag (askchoice (choices "NewIcons" "MagicWB (640x512 or better screen size needed)" "I've installed a replacement gfx-set\nMake sure it's done for ACS 1.25!")
  138.                     (prompt #selimages)
  139.                     (help #selimageshelp)
  140.                     (default 1)
  141. ))
  142.  
  143. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  144. (if (= imag 1) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  145.  
  146. (copyfiles (source "Rexx") (pattern "~(NotifyArexx.amicomsys|MessageArexx.amicomsys)") (dest (tackon instdir "Rexx")))
  147.  
  148. (set arscrp (askoptions (choices "NotifyArexx.amicomsys" "MessageArexx.amicomsys")
  149.                     (prompt #selscr)
  150.                     (help #selscrhelp)
  151.                     (default 2)
  152. ))
  153.  
  154. (if (<> arscrp 0) (
  155.     (if (IN arscrp 0) (copyfiles (source "Rexx/NotifyArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  156.     (if (IN arscrp 1) (copyfiles (source "Rexx/MessageArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  157. ))
  158.  
  159. ; install docs
  160. (set docs (askoptions (choices "AmiComSysMUI.guide" "AmiComSys.readme" "BetterString.readme" "Toolbar.guide" "Readme.mui")
  161.                 (prompt #seldocs)
  162.                 (help #seldocs)
  163.                 (default 31)
  164. ))
  165.  
  166. (if (<> docs 0) (
  167.     (if (IN docs 1) (copyfiles (source #readmefile) (dest instdir) (newname "AmiComSys.readme") (infos) ) )
  168.     (if (IN docs 0) (
  169.         (set #doctarget (askdir (prompt "Where do you want to install the guide?")
  170.                 (default instdir)
  171.                 (help "Select where to install the documentation.\nRecommended is the AmiComSys directory\nor your HELP: directory.")
  172.         ))
  173.         (copyfiles (source "AmiComSysMUI.guide") (dest #doctarget) (infos))
  174.     ))
  175.     (if (IN docs 2) (
  176.         (copyfiles (source "mui/lib